
'SMOKING SCRIPTS 

'hal hates smoking he has many facts reminding you of the fact



'-------------------------------------------------------------------
If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "KEYWORDSMOKING.brn") = "TRUE" Then
AnswerSent = "" & Trim(OriginalSentence)
HalBrain.AppendFile WorkingDir & "SMOKING" & ".brn", AnswerSent
End If
'-------------------------------------------------------------------

If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "KEYWORDSMOKING.brn") = "TRUE" Then
Smoking = HalBrain.ChooseSentenceFromFile(WorkingDir & "statementSMOKING.brn")

'-------------------------------------------------------------------

GetResponse = Smoking & VbCrLf
DebugInfo = DebugInfo & "The user is talking about smoking: " & Smoking & VbCrLf
Else
DebugInfo = DebugInfo & "Hal has found nothing about smoking: " & Smoking & VbCrLf
End If

'-------------------------------------------------------------------


